/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / ACORNET / OLD-VERSIONS / ACORNET020 / !Acornet_AppLib_slipdial

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 3e 73 6c | 69 70 64 69 61 6c 0d 00 |.....>sl|ipdial..|
|00000010| 14 21 f4 20 43 6f 70 79 | 72 69 67 68 74 20 31 39 |.!. Copy|right 19|
|00000020| 39 36 20 43 6f 6c 69 6e | 20 48 6f 67 62 65 6e 0d |96 Colin| Hogben.|
|00000030| 00 1e 40 f4 20 59 6f 75 | 20 75 73 65 20 74 68 69 |..@. You| use thi|
|00000040| 73 20 63 6f 64 65 20 66 | 6f 72 20 61 6e 79 20 6e |s code f|or any n|
|00000050| 6f 6e 2d 70 72 6f 66 69 | 74 20 70 75 72 70 6f 73 |on-profi|t purpos|
|00000060| 65 2c 20 70 72 6f 76 69 | 64 65 64 20 79 6f 75 0d |e, provi|ded you.|
|00000070| 00 28 3e f4 20 64 6f 63 | 75 6d 65 6e 74 20 61 6e |.(>. doc|ument an|
|00000080| 79 20 63 68 61 6e 67 65 | 73 20 6d 61 64 65 20 61 |y change|s made a|
|00000090| 6e 64 20 61 70 70 6c 79 | 20 74 68 65 20 73 61 6d |nd apply| the sam|
|000000a0| 65 20 63 6f 6e 64 69 74 | 69 6f 6e 73 2e 0d 00 32 |e condit|ions...2|
|000000b0| 04 0d 00 3c 14 dd 20 a4 | 73 6c 69 70 64 69 61 6c |...<.. .|slipdial|
|000000c0| 5f 69 6e 69 74 0d 00 46 | 06 3d 30 0d 00 50 04 0d |_init..F|.=0..P..|
|000000d0| 00 5a 29 dd 20 a4 73 6c | 69 70 64 69 61 6c 5f 6d |.Z). .sl|ipdial_m|
|000000e0| 65 74 68 6f 64 28 6d 65 | 74 68 6f 64 24 2c 61 72 |ethod(me|thod$,ar|
|000000f0| 67 24 2c 6f 70 74 24 29 | 0d 00 64 10 c8 8e 20 6d |g$,opt$)|..d... m|
|00000100| 65 74 68 6f 64 24 20 ca | 0d 00 6e 28 c9 20 22 63 |ethod$ .|..n(. "c|
|00000110| 6f 6e 66 69 67 22 3a 20 | 3d c3 a4 73 6c 69 70 64 |onfig": |=..slipd|
|00000120| 69 61 6c 5f 63 6f 6e 66 | 69 67 28 61 72 67 24 29 |ial_conf|ig(arg$)|
|00000130| 0d 00 78 10 c9 20 22 75 | 70 67 72 61 64 65 22 3a |..x.. "u|pgrade":|
|00000140| 0d 00 82 2d 20 20 f2 75 | 70 67 72 61 64 65 5f 70 |...-  .u|pgrade_p|
|00000150| 72 65 63 69 6f 75 73 28 | 22 2e 52 65 73 6f 75 72 |recious(|".Resour|
|00000160| 63 65 73 2e 21 43 6f 6e | 66 69 67 22 29 0d 00 8c |ces.!Con|fig")...|
|00000170| 2e 20 20 f2 75 70 67 72 | 61 64 65 5f 70 72 65 63 |.  .upgr|ade_prec|
|00000180| 69 6f 75 73 28 22 2e 52 | 65 73 6f 75 72 63 65 73 |ious(".R|esources|
|00000190| 2e 21 77 69 6e 64 6f 77 | 73 22 29 0d 00 96 2b 20 |.!window|s")...+ |
|000001a0| 20 f2 75 70 67 72 61 64 | 65 5f 70 72 65 63 69 6f | .upgrad|e_precio|
|000001b0| 75 73 28 22 2e 53 63 72 | 69 70 74 73 2e 61 63 6f |us(".Scr|ipts.aco|
|000001c0| 72 6e 65 74 22 29 0d 00 | a0 53 20 20 e7 20 a4 5f |rnet")..|.S  . ._|
|000001d0| 73 6c 69 70 64 69 61 6c | 5f 64 75 66 66 5f 6c 6f |slipdial|_duff_lo|
|000001e0| 61 64 73 65 72 69 61 6c | 28 61 72 67 24 29 20 f2 |adserial|(arg$) .|
|000001f0| 75 70 67 72 61 64 65 5f | 70 72 65 63 69 6f 75 73 |upgrade_|precious|
|00000200| 28 22 2e 52 65 73 6f 75 | 72 63 65 73 2e 4c 6f 61 |(".Resou|rces.Loa|
|00000210| 64 53 65 72 69 61 6c 22 | 29 0d 00 aa 21 20 20 3d |dSerial"|)...!  =|
|00000220| a4 75 70 67 72 61 64 65 | 5f 63 6f 70 79 5f 64 69 |.upgrade|_copy_di|
|00000230| 72 28 61 72 67 24 2c 22 | 22 29 0d 00 b4 05 cb 0d |r(arg$,"|")......|
|00000240| 00 be 07 3d 22 22 0d 00 | c8 04 0d 00 d2 1c dd 20 |...=""..|....... |
|00000250| a4 73 6c 69 70 64 69 61 | 6c 5f 63 6f 6e 66 69 67 |.slipdia|l_config|
|00000260| 28 64 69 72 24 29 0d 00 | dc 1b ea 20 69 25 2c 66 |(dir$)..|... i%,f|
|00000270| 25 2c 70 75 6c 73 65 24 | 2c 73 69 24 2c 6c 6f 67 |%,pulse$|,si$,log|
|00000280| 24 0d 00 e6 35 70 75 6c | 73 65 24 3d 22 22 3a 20 |$...5pul|se$="": |
|00000290| e7 20 6e 65 74 5f 70 75 | 6c 73 65 5f 64 69 61 6c |. net_pu|lse_dial|
|000002a0| 24 3e 22 22 20 8c 20 70 | 75 6c 73 65 24 3d 22 2f |$>"" . p|ulse$="/|
|000002b0| 70 75 6c 73 65 22 0d 00 | f0 36 73 69 24 3d 61 63 |pulse"..|.6si$=ac|
|000002c0| 6f 72 6e 65 74 5f 72 65 | 73 6f 75 72 63 65 73 24 |ornet_re|sources$|
|000002d0| 2b 22 2e 21 46 72 65 65 | 55 73 65 72 2e 46 69 6c |+".!Free|User.Fil|
|000002e0| 65 73 2e 53 4c 49 50 69 | 6e 66 6f 22 0d 00 fa 1a |es.SLIPi|nfo"....|
|000002f0| 66 25 3d a4 66 69 6c 65 | 5f 6f 70 65 6e 28 73 69 |f%=.file|_open(si|
|00000300| 24 2c 22 77 22 29 0d 01 | 04 15 d5 23 66 25 2c 6e |$,"w")..|...#f%,n|
|00000310| 65 74 5f 61 63 63 6f 75 | 6e 74 24 0d 01 0e 16 d5 |et_accou|nt$.....|
|00000320| 23 66 25 2c 6e 65 74 5f | 70 61 73 73 77 6f 72 64 |#f%,net_|password|
|00000330| 24 0d 01 18 1b d5 23 66 | 25 2c 6e 65 74 5f 73 65 |$.....#f|%,net_se|
|00000340| 72 69 61 6c 5f 64 72 69 | 76 65 72 24 0d 01 22 12 |rial_dri|ver$..".|
|00000350| d5 23 66 25 2c 6e 65 74 | 5f 70 6f 72 74 24 0d 01 |.#f%,net|_port$..|
|00000360| 2c 13 d5 23 66 25 2c 6e | 65 74 5f 73 70 65 65 64 |,..#f%,n|et_speed|
|00000370| 24 0d 01 36 14 d5 23 66 | 25 2c 6e 65 74 5f 6e 75 |$..6..#f|%,net_nu|
|00000380| 6d 62 65 72 24 0d 01 40 | 19 d5 23 66 25 2c 6e 65 |mber$..@|..#f%,ne|
|00000390| 74 5f 64 69 61 6c 5f 70 | 72 65 66 69 78 24 0d 01 |t_dial_p|refix$..|
|000003a0| 4a 1a d5 23 66 25 2c 6e | 65 74 5f 6d 6f 64 65 6d |J..#f%,n|et_modem|
|000003b0| 5f 64 72 69 76 65 72 24 | 0d 01 54 0f d5 23 66 25 |_driver$|..T..#f%|
|000003c0| 2c 70 75 6c 73 65 24 0d | 01 5e 1d d5 23 66 25 2c |,pulse$.|.^..#f%,|
|000003d0| a4 6c 65 61 66 28 6e 65 | 74 5f 70 72 6f 76 69 64 |.leaf(ne|t_provid|
|000003e0| 65 72 24 29 0d 01 68 14 | d5 23 66 25 2c 6e 65 74 |er$)..h.|.#f%,net|
|000003f0| 5f 64 6f 6d 61 69 6e 24 | 0d 01 72 14 d5 23 66 25 |_domain$|..r..#f%|
|00000400| 2c 6e 65 74 5f 72 6f 75 | 74 65 72 24 0d 01 7c 15 |,net_rou|ter$..|.|
|00000410| d5 23 66 25 2c 6e 65 74 | 5f 6e 65 74 6d 61 73 6b |.#f%,net|_netmask|
|00000420| 24 0d 01 86 18 d5 23 66 | 25 2c 6e 65 74 5f 69 70 |$.....#f|%,net_ip|
|00000430| 5f 61 64 64 72 65 73 73 | 24 0d 01 90 1b d5 23 66 |_address|$.....#f|
|00000440| 25 2c 6e 65 74 5f 6d 61 | 69 6c 5f 70 72 6f 74 6f |%,net_ma|il_proto|
|00000450| 63 6f 6c 24 0d 01 9a 1b | d5 23 66 25 2c 6e 65 74 |col$....|.#f%,net|
|00000460| 5f 6c 69 6e 6b 5f 70 72 | 6f 74 6f 63 6f 6c 24 0d |_link_pr|otocol$.|
|00000470| 01 a4 12 d5 23 66 25 2c | 6e 65 74 5f 6e 6f 64 65 |....#f%,|net_node|
|00000480| 24 0d 01 ae 14 d5 23 66 | 25 2c 6e 65 74 5f 65 78 |$.....#f|%,net_ex|
|00000490| 74 72 61 31 24 0d 01 b8 | 14 d5 23 66 25 2c 6e 65 |tra1$...|..#f%,ne|
|000004a0| 74 5f 65 78 74 72 61 32 | 24 0d 01 c2 14 d5 23 66 |t_extra2|$.....#f|
|000004b0| 25 2c 6e 65 74 5f 65 78 | 74 72 61 33 24 0d 01 cc |%,net_ex|tra3$...|
|000004c0| 13 f2 66 69 6c 65 5f 63 | 6c 6f 73 65 28 66 25 29 |..file_c|lose(f%)|
|000004d0| 0d 01 d6 1d f2 66 69 6c | 65 5f 73 65 74 74 79 70 |.....fil|e_settyp|
|000004e0| 65 28 73 69 24 2c 22 54 | 65 78 74 22 29 0d 01 e0 |e(si$,"T|ext")...|
|000004f0| 2a 69 25 3d a4 64 6c 67 | 5f 70 6f 6c 6c 3a 20 e7 |*i%=.dlg|_poll: .|
|00000500| 20 69 25 3c 3e 64 6c 67 | 5f 4e 55 4c 4c 20 8c 20 | i%<>dlg|_NULL . |
|00000510| 3d 28 69 25 3d 31 29 0d | 01 ea 04 0d 01 f4 38 6c |=(i%=1).|......8l|
|00000520| 6f 67 69 6e 24 3d 64 69 | 72 24 2b 22 2e 53 63 72 |ogin$=di|r$+".Scr|
|00000530| 69 70 74 73 2e 41 63 6f | 72 6e 65 74 2e 22 2b a4 |ipts.Aco|rnet."+.|
|00000540| 6c 65 61 66 28 6e 65 74 | 5f 70 72 6f 76 69 64 65 |leaf(net|_provide|
|00000550| 72 24 29 0d 01 fe 14 f2 | 6c 69 62 72 61 72 79 28 |r$).....|library(|
|00000560| 22 6d 61 6b 65 22 29 0d | 02 08 1d 66 25 3d a4 66 |"make").|...f%=.f|
|00000570| 69 6c 65 5f 6f 70 65 6e | 28 6c 6f 67 69 6e 24 2c |ile_open|(login$,|
|00000580| 22 77 22 29 0d 02 12 2e | f2 6d 61 6b 65 5f 69 6e |"w")....|.make_in|
|00000590| 63 6c 75 64 65 28 6e 65 | 74 5f 72 65 73 70 61 74 |clude(ne|t_respat|
|000005a0| 68 24 2b 22 4c 6f 67 69 | 6e 48 65 61 64 22 2c 66 |h$+"Logi|nHead",f|
|000005b0| 25 29 0d 02 1c 1c e7 20 | 6e 65 74 5f 6c 6f 67 69 |%)..... |net_logi|
|000005c0| 6e 5f 73 63 72 69 70 74 | 24 3e 22 22 20 8c 0d 02 |n_script|$>"" ...|
|000005d0| 26 1e 20 20 f2 70 72 6f | 76 69 64 65 72 5f 63 6f |&.  .pro|vider_co|
|000005e0| 70 79 5f 6c 6f 67 69 6e | 28 66 25 29 0d 02 30 05 |py_login|(f%)..0.|
|000005f0| cc 0d 02 3a 2c 20 20 f2 | 6d 61 6b 65 5f 69 6e 63 |...:,  .|make_inc|
|00000600| 6c 75 64 65 28 6e 65 74 | 5f 72 65 73 70 61 74 68 |lude(net|_respath|
|00000610| 24 2b 22 4c 6f 67 69 6e | 22 2c 66 25 29 0d 02 44 |$+"Login|",f%)..D|
|00000620| 05 cd 0d 02 4e 13 d5 23 | 66 25 2c 22 72 65 74 75 |....N..#|f%,"retu|
|00000630| 72 6e 20 31 22 0d 02 58 | 13 f2 66 69 6c 65 5f 63 |rn 1"..X|..file_c|
|00000640| 6c 6f 73 65 28 66 25 29 | 0d 02 62 20 f2 66 69 6c |lose(f%)|..b .fil|
|00000650| 65 5f 73 65 74 74 79 70 | 65 28 6c 6f 67 69 6e 24 |e_settyp|e(login$|
|00000660| 2c 22 54 65 78 74 22 29 | 0d 02 6c 04 0d 02 76 69 |,"Text")|..l...vi|
|00000670| e7 20 a4 5f 73 6c 69 70 | 64 69 61 6c 5f 64 75 66 |. ._slip|dial_duf|
|00000680| 66 5f 6c 6f 61 64 73 65 | 72 69 61 6c 28 64 69 72 |f_loadse|rial(dir|
|00000690| 24 29 20 f2 66 69 6c 65 | 5f 63 6f 70 79 28 6e 65 |$) .file|_copy(ne|
|000006a0| 74 5f 72 65 73 70 61 74 | 68 24 2b 22 4c 6f 61 64 |t_respat|h$+"Load|
|000006b0| 53 65 72 69 61 6c 22 2c | 64 69 72 24 2b 22 2e 52 |Serial",|dir$+".R|
|000006c0| 65 73 6f 75 72 63 65 73 | 2e 4c 6f 61 64 53 65 72 |esources|.LoadSer|
|000006d0| 69 61 6c 22 29 0d 02 80 | 06 3d 31 0d 02 8a 04 0d |ial")...|.=1.....|
|000006e0| 02 94 39 f4 20 56 65 72 | 73 69 6f 6e 20 30 2e 34 |..9. Ver|sion 0.4|
|000006f0| 31 20 63 6f 6e 74 61 69 | 6e 65 64 20 61 6e 20 69 |1 contai|ned an i|
|00000700| 6e 63 6f 72 72 65 63 74 | 20 4c 6f 61 64 53 65 72 |ncorrect| LoadSer|
|00000710| 69 61 6c 20 66 69 6c 65 | 0d 02 9e 26 dd 20 a4 5f |ial file|...&. ._|
|00000720| 73 6c 69 70 64 69 61 6c | 5f 64 75 66 66 5f 6c 6f |slipdial|_duff_lo|
|00000730| 61 64 73 65 72 69 61 6c | 28 64 69 72 24 29 0d 02 |adserial|(dir$)..|
|00000740| a8 10 ea 20 66 25 2c 64 | 75 66 66 2c 6c 24 0d 02 |... f%,d|uff,l$..|
|00000750| b2 0a 64 75 66 66 3d a3 | 0d 02 bc 33 66 25 3d a4 |..duff=.|...3f%=.|
|00000760| 66 69 6c 65 5f 6f 70 65 | 6e 28 64 69 72 24 2b 22 |file_ope|n(dir$+"|
|00000770| 2e 52 65 73 6f 75 72 63 | 65 73 2e 4c 6f 61 64 53 |.Resourc|es.LoadS|
|00000780| 65 72 69 61 6c 22 2c 22 | 72 22 29 0d 02 c6 0f e7 |erial","|r").....|
|00000790| 20 66 25 3d 30 20 8c 20 | 3d a3 0d 02 d0 0c c8 95 | f%=0 . |=.......|
|000007a0| 20 ac c5 23 66 25 0d 02 | da 0d 20 20 6c 24 3d be | ..#f%..|..  l$=.|
|000007b0| 23 66 25 0d 02 e4 1c 20 | 20 e7 20 c0 6c 24 2c 34 |#f%.... | . .l$,4|
|000007c0| 29 3d 22 65 63 68 6f 22 | 20 64 75 66 66 3d b9 0d |)="echo"| duff=..|
|000007d0| 02 ee 05 ce 0d 02 f8 13 | f2 66 69 6c 65 5f 63 6c |........|.file_cl|
|000007e0| 6f 73 65 28 66 25 29 0d | 03 02 09 3d 64 75 66 66 |ose(f%).|...=duff|
|000007f0| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+